Program Demo;
Type T_Array = Array [10] Of Integer;

Procedure Test;
Begin
 Writeln('Dies ist eine kleine Demo für den Mini-Compiler')
End;

Procedure ASCII;
Var C : Char;

Begin
 For c:='a' to 'z' Do
   Writeln(C,'  ',Ord(C),' ',Upcase(c),' ',Ord(Upcase(c)))
End;

Procedure Fehler;
Begin
 Writeln('Division durch 0',1/0)
End;

Begin
 Writeln('Dies ist eine kleine Demo zum finden von Laufzeitfehlern');
 Writeln('Dieses Programm erzeugt einen Fehler. Die Stelle im Text');
 Writeln('findet sich mit "Laufzeitfehler suchen" in der Oberfläche');
 Test;
 ASCII;
 Fehler
End.

